COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	DEFINE MASTER="'16661"
C00008 ENDMK
C⊗;
DEFINE MASTER="'16661";
DEFINE S1="16.24",S2="6.05",S6="9.38";
DEFINE S3LL="6.5",SX="20.035",SY="10.305";

	PRELOAD_WITH SX,SY,S1,1.0;
	INTERNAL SAFE REAL ARRAY SHOLDER[1:4];

	PRELOAD_WITH -185.0, 60.0, -185.0, -10.0, 6.5, 27.5, -175.0, 140.0, -100.0, 100.0,
	-270.0, 270.0;
	INTERNAL SAFE REAL ARRAY STOP[1:6,1:2];

DEFINE M6="112.3", Z6="-3.09", I6XX="1411.2", I6YY="1320.6", I6ZZ="131.3";

PRELOAD_WITH -180.0, -90.0, 12.0, -90.0, 90.0, 0.0;
SAFE REAL ARRAY V0[1:6];
PRELOAD_WITH 800.0, 320.0, 76.0, 80.0, 230.0, 120.0;
SAFE OWN REAL ARRAY F0[1:6];
PRELOAD_WITH AVT(0.0, S1, 0.0, -1.0),
 	AVT(0.0, S2, 0.0, 1.0), 
	AVS(0.0, 1.0, 0.0, 0.0, -1.0),
	AVT(0.0, 0.0, 0.0, -1.0), 
	AVT(0.0, 0.0, 0.0, 1.0), 
	AVT(0.0, S6, 1.0, 0.0);
SAFE REAL ARRAY A[0:101];

PRELOAD_WITH AVP(0.0, S1, 0.0, -1.0),
 	AVP(0.0, S2, 0.0, 1.0), 
	AVP(0.0, 0.0, 0.0, 0.0, ),
	AVP(0.0, 0.0, 0.0, -1.0), 
	AVP(0.0, 0.0, 0.0, 1.0), 
	AVP(0.0, S6, 1.0, 0.0);
SAFE REAL ARRAY APAR [0:35];

PRELOAD_WITH QT, QS;
SAFE REAL ARRAY Q[0:33];

PRELOAD_WITH JDEF(1849.0, 0.0, 0.0, -1.69, 0.0, 19780.0, 0.0),
	JDEF(935.2, 0.0, -4.28, -1.67, 34678.5, 7365.2, 27907.9),
	JDEF(668.2, 0.0, 0.0, -18.1, 255446.0, 255446.0, 126.0),
	JDEF(365.0, 0.0, 1.323, 0.0, 2280.0, 628.0, 1820.0),
	JDEF(145.0, 0.0, 0.0, 2.82, 1542.0, 1450.0, 136.0),
	JDEF(112.3, 0.0, 0.0, -3.09, 1411.2, 1320.6, 131.3);
SAFE REAL ARRAY JMAT[0:101];

	SAFE REAL ARRAY MA[1:6];

	PRELOAD_WITH 0.5,0.5,4.5,0.2,0.2,0.4;
	SAFE REAL ARRAY TIMFAC[1:6];

EXTERNAL SIMPLE INTEGER PROCEDURE ARM_SOLVE(SAFE REAL ARRAY T,J);
EXTERNAL SIMPLE INTEGER PROCEDURE PSOLVE(SAFE REAL ARRAY T,J);